home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 19
/
Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso
/
Aminet
/
comm
/
cnet
/
cnet_toolkit.lha
/
routines
/
WHO
< prev
Wrap
Text File
|
1997-04-05
|
442b
|
6 lines
WHO:;transmit "r1# "left("Handle",21)left("AG SPD From",38)left("Location",16)"r0"
getuser word("2225094 2227782",cnet+1);hp=result;do po=0 to hp;getportid po;pi=result;if pi=-1 then iterate
loadscratch pi;savescratch (-pi);getscratch 1;ha=result;getscratch 15;ac=result;getwhere po;wh=result;getscratch 1201214;cp=result%10
getscratch 4;fr=result;transmit left(po,3)left(ha,21)left(ac,3)left(cp,4)left(fr,31)left(wh,16);end
return